(show-paren-command-hook): Do nothing if have unread events.

diff --git a/lisp/paren.el b/lisp/paren.el
index 0a151d14aaba6b17654b7a27d518183d1e80ec3c..656c4df5c5cd5318552a55b8fbf454d3ac0bd9b3 100644 (file)
--- a/lisp/paren.el
+++ b/lisp/paren.el
@@ -45,7 +45,9 @@
   ;; Do nothing if no window system to display results with.
   ;; Do nothing if executing keyboard macro.
   ;; Do nothing if input is pending.
-  (if (and window-system (not executing-kbd-macro) (sit-for 0 100))
+  (if (and window-system (not executing-kbd-macro)
+          (not unread-command-events)
+          (sit-for 0 100))
       (let (pos dir mismatch (oldpos (point))
                (face show-paren-face))
        (cond ((eq (char-syntax (preceding-char)) ?\))